home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / ls-tron3.1 / ls-tron.i < prev    next >
Text File  |  1996-04-14  |  5KB  |  162 lines
  1. { LS-Tron.i }
  2.  
  3. CONST hex : ARRAY[0..15] OF STRING = ("0","1","2","3","4","5","6","7",
  4.                                       "8","9","a","b","c","d","e","f");
  5.  
  6.       Schraegstrich = "/";
  7.  
  8. {$I "include:exec/libraries.i"               }
  9. {$I "include:exec/memory.i"                  }
  10. {$I "include:libraries/dosextens.i"          }
  11. {$I "include:utils/random.i"                 }
  12. {$I "include:libraries/medplayer.i"          }
  13. {$I "include:graphics/Text.i"                }
  14. {$I "include:libraries/diskfont.i"           }
  15. {$I "include:Intuition/Intuition.i"          }
  16. {$I "include:Libraries/ReqTools.i"           }
  17. {$I "include:Utils/StringLib.i"              }
  18. {$I "include:Graphics/Graphics.i"            }
  19. {$I "include:Graphics/Pens.i"                }
  20. {$I "include:Utils/Parameters.i"             }
  21.  
  22. PROCEDURE FileRequest(Titel,dir,datei : STRING);
  23.   EXTERNAL;
  24.  
  25. PROCEDURE Show(Meldung : STRING);
  26.   EXTERNAL;
  27.  
  28. FUNCTION Ask(Meldung : STRING) : BOOLEAN;   { Requester aufrufen   }
  29.   EXTERNAL;
  30.  
  31. FUNCTION AskEnglish(Meldung : STRING) : BOOLEAN;   { Requester aufrufen   }
  32.   EXTERNAL;
  33.  
  34. FUNCTION Choose(meldung,wahl1,wahl2,wahl3 : STRING) : BYTE;
  35.   EXTERNAL;
  36.  
  37. PROCEDURE MakeString(myVar : INTEGER;VAR s : STRING); { Integer => String }
  38.   EXTERNAL;
  39.  
  40. PROCEDURE AddString(VAR s : STRING;x : SHORT); { Integer an String hängen }
  41.   EXTERNAL;
  42.  
  43. FUNCTION IncAddress(x : ADDRESS;zahl : INTEGER) : ADDRESS;
  44.   EXTERNAL;
  45.  
  46. FUNCTION Str2Int(s : STRING) : INTEGER;
  47.   EXTERNAL;
  48.  
  49. PROCEDURE Byte2Hex(zahl : BYTE;VAR s : STRING);
  50.   EXTERNAL;
  51.  
  52. PROCEDURE Code2String(zahl : BYTE;VAR s : STRING);
  53.   EXTERNAL;
  54.  
  55. PROCEDURE Code2StringEng(zahl : BYTE;VAR s : STRING);
  56.   EXTERNAL;
  57.  
  58. PROCEDURE SetGadget(Gad : GadgetPtr;nextGad,GadRender,SelRender,
  59.                                     GadText : ADDRESS);
  60.   EXTERNAL;
  61.  
  62. PROCEDURE SelectGadget(rp : RastPortPtr;Gad : GadgetPtr);
  63.   EXTERNAL;
  64.  
  65. PROCEDURE Print(RP : RastPortPtr;x,y : SHORT;Zeile : STRING;colour : SHORT);
  66.   EXTERNAL;
  67.  
  68. FUNCTION GetGadgetID(iadr : GadgetPtr) : SHORT; { Gadget identifizieren }
  69.   EXTERNAL;
  70.  
  71. PROCEDURE KillMSGs(UserPort : MsgPortPtr);
  72.   EXTERNAL;
  73.  
  74. PROCEDURE MyCloseWindow(MyWin : WindowPtr); { Fenster schön schließen }
  75.   EXTERNAL;
  76.  
  77. PROCEDURE Line(RPort : RastPortPtr;x1,y1,x2,y2 : SHORT); { Linie Malen }
  78.   EXTERNAL;
  79.  
  80. PROCEDURE DrawBox(rp : RastportPtr;x,y,tx,ty : SHORT); { Box malen (3D) }
  81.   EXTERNAL;
  82.  
  83. PROCEDURE DrawIBox(rp : RastportPtr;x,y,tx,ty : SHORT); { Box invertiert }
  84.   EXTERNAL;
  85.  
  86. PROCEDURE DrawCBox(rp : RastportPtr;x,y,tx,ty,c1,c2 : SHORT); { Box mit Farbenwahl }
  87.   EXTERNAL;
  88.  
  89. PROCEDURE DrawSBox(rp : RastportPtr;x,y,tx,ty : SHORT); { einfarbige Box }
  90.   EXTERNAL;
  91.  
  92. PROCEDURE Draw0Box(rp : RastportPtr;x,y,tx,ty : SHORT); { Box löschen }
  93.   EXTERNAL;
  94.  
  95. FUNCTION Hoch(basis,exponent : INTEGER) : INTEGER;
  96.   EXTERNAL;
  97.  
  98.  
  99. TYPE IFFTitles = (BMHD_f,CMAP_f,CAMG_f,BODY_f);
  100.  
  101.      BMHD = RECORD
  102.               width,
  103.               height      : SHORT;
  104.               depth       : BYTE;
  105.               left,
  106.               top         : SHORT;
  107.               masking     : BYTE;
  108.               transCol    : SHORT;
  109.               xAspect,
  110.               yAspect     : BYTE;
  111.               scrnWidth,
  112.               scrnHeight  : SHORT;
  113.             END;
  114.  
  115.      CMAP = RECORD
  116.               colorcnt    : SHORT;
  117.               red,
  118.               green,
  119.               blue        : ARRAY [0..255] OF BYTE;
  120.             END;
  121.  
  122.      CAMG = RECORD
  123.               viewType    : INTEGER;
  124.             END;
  125.  
  126.      IFFInfoType = RECORD
  127.                      IFFBMHD  : BMHD;
  128.                      IFFCMAP  : CMAP;
  129.                      IFFCAMG  : CAMG;
  130.                      IFFTitle : IFFTitles;
  131.                    END;
  132.  
  133.      IFFInfoTypePtr = ^IFFInfoType;
  134.  
  135.  
  136.       { IFFErrors }
  137.  
  138. CONST iffNoErr            = 0;
  139.       iffOutOfMem         = 1;
  140.       iffOpenScreenfailed = 2;
  141.       iffOpenWindowFailed = 3;
  142.       iffOpenFailed       = 4;
  143.       iffWrongIff         = 5;
  144.       iffReadWriteFailed  = 6;
  145.  
  146.       { IFFError-Strings }
  147.  
  148. CONST IFFErrorStrings : ARRAY [iffNoErr..iffReadWriteFailed] OF String =
  149.                         ("Kein Fehler",
  150.                          "Nicht genug Speicher!",
  151.                          "Fehler bei Openscreen!",
  152.                          "Fehler bei Openwindow!",
  153.                          "Konnte Datei nicht öffnen!",
  154.                          "Fahlsches IFF-Format!",
  155.                          "Schreib-/Lese-Fehler!");
  156.  
  157.  
  158. FUNCTION ReadILBM(    name     : String;
  159.                   VAR myscreen : ScreenPtr;
  160.                   VAR mywindow : WindowPtr) : BYTE;
  161.   EXTERNAL;
  162.